home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / mac / allfiles / Itch / itch.dir / 00004_Script_Button Parent < prev    next >
Text File  |  1999-03-08  |  1KB  |  45 lines
  1. property sp,cst,rct,state
  2.  
  3. on New me,aSp
  4.   set the sp of me = aSp
  5.   set the cst of me = the name of member(the member of sprite the sp of me)
  6.   set temp = item 1 of the cst of me
  7.   SwapCast me,temp &",norm"
  8.   set the rct of me = the rect of sprite the sp of me
  9.   set the state of me = #default
  10.   return(me)
  11. end 
  12.  
  13. on CheckState me
  14.   case(the state of me) of
  15.     #default: CheckOver me
  16.     #normal: DoNormal me
  17.     #over: DoOver me
  18.   end case
  19. end
  20.  
  21. on CheckOver me
  22.   if inside(the mouseLoc, the rct of me) then 
  23.     set temp = item 1 of the cst of me
  24.     SwapCast me,temp &",over"
  25.     set the state of me = #over
  26.   end if
  27. end
  28.  
  29. on DoNormal me
  30.   set temp = item 1 of the cst of me
  31.   SwapCast me,temp &",norm"
  32.   set the state of me = #default
  33. end
  34.  
  35. on DoOver me
  36.   if inside(the mouseLoc, the rct of me) then 
  37.   else
  38.     set the state of me = #normal
  39.   end if
  40. end
  41.  
  42. on SwapCast me,aMem
  43.   set the cst of me = aMem
  44.   set the member of sprite the sp of me = the cst of me
  45. end